home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-11_1998_CSW_Side_A.d64 / test 6 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 10 print"[147]";:gosub59000
  2. 20 st$="[208]rogramm '[205]enues in [194][193][211][201][195]'. [214]iel [211]pass! [197]ure [199][207]64! --> [212]aste druecken "
  3. 30 gosub1700:lg=1:gosub1400
  4. 40 st$="--> [204]inie ziehen. [205]it welchem [218]eichen?  (x=[197]nde) ":gosub1700:lg=1:gosub1400
  5. 50 zl=10:sp=0:gosub1200:printl$:sp=9:gosub1200:lg=21:gosub1800
  6. 70 ifen$<>"x"then40
  7. 80 st$="[197]nde des [208]rogramms.":gosub1700
  8. 900 zl=0:gosub1200
  9. 999 end
  10. 1100 gosub1200:print"[176]";:fori9=1tobr:print"[192]";:next:print"[174]"
  11. 1110 fori9=1toho:printtab(sp)"[221]"spc(br)"[221]":next
  12. 1120 printtab(sp)"[173]";:fori9=1tobr:print"[192]";:next:print"[189]";:return
  13. 1200 poke214,zl:poke211,sp:sys58640:return
  14. 1300 gosub1200:fori9=1toho+2:printtab(sp)left$(l$,br+2);:ifi9<ho+2thenprint
  15. 1310 next:return
  16. 1400 en$="":i9=0
  17. 1405 print"[164][157]";
  18. 1410 getx9$:ifx9$=""then1410
  19. 1420 ifx9$=chr$(13)then1480
  20. 1430 ifx9$=chr$(20)andi9>0thenprint"[157][157][164][157]";:i9=i9-1:en$=left$(en$,i9)
  21. 1440 ifx9$<" "orx9$>"[218]"then1410
  22. 1450 ifx9$>"_"andx9$<"[193]"then1410
  23. 1460 ifx9$=chr$(34)thenprintchr$(148)x9$chr$(20);
  24. 1470 en$=en$+x9$:printx9$;:i9=i9+1:iflg>i9then1405
  25. 1480 print" ";:return
  26. 1700 zl=23:sp=0:gosub1200:printl$:printl$;:zl=zl-1:gosub1200:en$="[164]":lg=40:gosub1800
  27. 1710 zl=zl+1:gosub1200:printst$;:st$="":en$="":return
  28. 1800 fori9=1tolg:printen$;:next:return
  29. 59000 i9=0:i8=0:i7=0:i6=0:zl=0:sp=0:br=0:ho=0:x9$="":en$="":st$=""
  30. 59010 read mn,sm,mb:dim mn$(mn,sm),mn%(mn)
  31. 59020 fori9=1tomn:readmn$(i9,0):next
  32. 59025 fori8=1tomn:readmn%(i8):sm=mn%(i8):fori9=1tosm:readmn$(i8,i9):next:next
  33. 59080 l$="                                       ":lg=1
  34. 59090 fc=11:fb=15:fr=12:poke53281,fb:poke53280,fr:poke646,fc
  35. 59095 print""l$" ";:fori9=1tomn:sp=(i9-1)*mb:gosub1200:printmn$(i9,0);:next:print"[146]";
  36. 59099 return
  37. 60000 data 4,6,10:rem anzahl menues,max. anzahl submenues, menuebreite
  38. 60010 data "[196]atei","[194]earb.","[197]xtras","[200]ilfe"
  39. 60020 data 5,"[206]eu","[207]effnen","[211]chliessen","[211]peichern","[194]eenden"
  40. 60030 data 4,"[210]ueckgaeng","[193]usschneid","[203]opieren","[197]infuegen"
  41. 60040 data 2,"[201]mport","[197]xport"
  42. 60050 data 3,"[213]eber...","[201]ndex","[193]llgemein"
  43.